home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIGamesS-T.lzh / Turrican2Demo.lha / Turrican2DemoHD / Install-Turrican2Demo next >
Text File  |  2002-02-20  |  4KB  |  187 lines
  1. ;****************************
  2.  
  3. (set #sub-dir "")            ;sub directory containing data files
  4. (set #readme-file "ReadMe")        ;name of readme file
  5. (set #highs-file "highs")            ;name of high scores file
  6. (set #cleanup "")            ;files to delete after install
  7. (set #demo "TurricanII")
  8.  
  9. ;****************************
  10. ;----------------------------
  11. ; checks if given program is installed, if not abort install
  12. ; #program - to check
  13.  
  14. (procedure P_ChkRun
  15.   (if
  16.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  17.     ("")
  18.     (abort
  19.       (cat
  20.     "You must install \"" #program "\" first!\n"
  21.     "It must be accessible via the path.\n"
  22.     "You can find it in the \"" #package "\" package."
  23.       )
  24.     )
  25.   )
  26. )
  27.  
  28. ;----------------------------
  29. ; Wait for inserting disk
  30. ; IN:  #AD_disk - name of disk
  31. ; OUT: -
  32.  
  33. (procedure P_disk
  34.     (message ("Ensure the file \"%s\" is available in RAM:" #demo))
  35. )
  36.  
  37. ;****************************
  38.  
  39. (if
  40.   (exists #readme-file)
  41.   (if
  42.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  43.     ("")
  44.     (run ("SYS:Utilities/More %s" #readme-file))
  45.   )
  46. )
  47.  
  48. (set #program "xfddecrunch")
  49. (set #package "XFD")
  50. (P_ChkRun)
  51.  
  52.  
  53. (set #program "WHDLoad")
  54. (set #package "WHDLoad") 
  55. (P_ChkRun)
  56.  
  57. (if
  58.   (getenv "WHDLInstPath")
  59.   (set @default-dest (getenv "WHDLInstPath"))
  60. )
  61. (set #dest
  62.   (askdir
  63.     (prompt ("Where should \"%s\" be installed?\nA drawer \"%s\" will be automatically created." @app-name @app-name))
  64.     (help @askdir-help)
  65.     (default @default-dest)
  66.     (disk)
  67.   )
  68. )
  69. (run ("setenv WHDLInstPath \"%s\"\ncopy ENV:WHDLInstPath ENVARC:" @default-dest))
  70. (set #dest (tackon #dest @app-name))
  71. (if
  72.   (exists #dest)
  73.   (
  74.     (set #choice
  75.       (askbool
  76.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted?" #dest))
  77.         (default 1)
  78.         (choices "Delete" "Skip")
  79.         (help @askbool-help)
  80.       )
  81.     )
  82.     (if
  83.       (= #choice 1)
  84.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  85.     )
  86.   )
  87. )
  88. (makedir #dest
  89.   (help @makedir-help)
  90.   (infos)
  91. )
  92.  
  93. ;----------------------------
  94.  
  95. (copyfiles
  96.   (help @copyfiles-help)
  97.   (source ("%s.Slave" @app-name))
  98.   (dest #dest)
  99. )
  100. (if
  101.   (exists ("%s.newicon" @app-name))
  102.   (set #icon
  103.     (askchoice
  104.       (prompt "\nWhich icon would you like to install?\n")
  105.       (default 0)
  106.       (choices "ColorIcon" "NewIcon")
  107.       (help @askchoice-help)
  108.     )
  109.   )
  110.   (set #icon 0)
  111. )
  112. (select #icon
  113.   (set #icon ("%s.coloricon" @app-name))
  114.   (set #icon ("%s.newicon" @app-name))
  115. )
  116. (copyfiles
  117.   (help @copyfiles-help)
  118.   (source #icon)
  119.   (newname ("%s.info" @app-name))
  120.   (dest #dest)
  121. )
  122. (if
  123.   (exists #readme-file)
  124.   (copyfiles
  125.     (help @copyfiles-help)
  126.     (source #readme-file)
  127.     (dest #dest)
  128.   )
  129. )
  130. (copyfiles
  131.     (help @copyfiles-help)
  132.     (source ("Turrican2.txt" @app-name))
  133.     (dest #dest)
  134. )
  135. (copyfiles
  136.     (help @copyfiles-help)
  137.     (source ("Turrican2.txt.info" @app-name))
  138.     (dest #dest)
  139. )
  140. (if
  141.   (exists ("%s.info" #readme-file))
  142.   (
  143.     (copyfiles
  144.       (help @copyfiles-help)
  145.       (source ("%s.info" #readme-file))
  146.       (dest #dest)
  147.     )
  148.     (tooltype
  149.       (dest (tackon #dest #readme-file))
  150.       (noposition)
  151.     )
  152.   )
  153. )
  154.  
  155. (if
  156.   (= #sub-dir "")
  157.   ("")
  158.   (
  159.     (set #dest (tackon #dest #sub-dir))
  160.     (makedir #dest
  161.       (help @makedir-help)
  162.     )
  163.   )
  164. )
  165. (if
  166.   (exists #highs-file)
  167.   (copyfiles
  168.     (help @copyfiles-help)
  169.     (source #highs-file)
  170.     (dest #dest)
  171.   )
  172. )
  173.  
  174. ;----------------------------
  175.  
  176. (P_Disk)
  177. (if
  178.   (= 0 (run ("xfddecrunch RAM:%s %s >CON:///1000//CLOSE ALL" #demo #dest)))
  179.   ("")
  180.   (abort "\"xfddecrunch\" has failed to decompress the demo")
  181. )
  182. ;----------------------------
  183.  
  184. (run ("Delete %s ALL QUIET FORCE" #cleanup))
  185.  
  186. (exit)
  187.